home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / editor / be300.zip / SIDEBY.CHS < prev    next >
Text File  |  1992-10-18  |  930b  |  40 lines
  1. double_down{
  2.    if(ask("file_w_width")!=ask("sys_cols)){
  3.       /* boom! we have to do both
  4.       if(ask("file_w_left")==1){
  5.          b_cmd("down_page");
  6.          b_cmd("window_next");
  7.          b_cmd("down_page");
  8.          b_cmd("window_prev");
  9.       }
  10.       else{
  11.          b_cmd("down_page");
  12.          b_cmd("window_prev");
  13.          b_cmd("down_page");
  14.          b_cmd("window_next");
  15.       }
  16.    }          
  17.    else{
  18.       b_cmd("down_page");
  19.    }
  20. }
  21. double_up{
  22.    if(ask("file_w_width")!=ask("sys_cols)){
  23.       /* boom! we have to do both
  24.       if(ask("file_w_left")==1){
  25.          b_cmd("up_page");
  26.          b_cmd("window_next");
  27.          b_cmd("down_page");
  28.          b_cmd("window_prev");
  29.       }
  30.       else{
  31.          b_cmd("up_page");
  32.          b_cmd("window_prev");
  33.          b_cmd("down_page");
  34.          b_cmd("window_next");
  35.       }
  36.    }          
  37.    else{
  38.       b_cmd("down_page");
  39.    }
  40. }